/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / perl / mac-perl / mcprl401.bin / Perl_appl / lib / cacheout.pl

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 63 61 63 68 65 6f | 75 74 2e 70 6c 00 00 00 |..cacheo|ut.pl...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 03 11 00 | 00 01 ac a6 eb de 66 a6 |........|......f.|
|00000060| eb de 66 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..f.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 dc d1 00 00 |........|........|
|00000080| 23 20 4f 70 65 6e 20 69 | 6e 20 74 68 65 69 72 20 |# Open i|n their |
|00000090| 70 61 63 6b 61 67 65 2e | 0d 0d 73 75 62 20 63 61 |package.|..sub ca|
|000000a0| 63 68 65 6f 75 74 27 6f | 70 65 6e 20 7b 0d 20 20 |cheout'o|pen {.  |
|000000b0| 20 20 6f 70 65 6e 28 24 | 5f 5b 30 5d 2c 20 24 5f |  open($|_[0], $_|
|000000c0| 5b 31 5d 29 3b 0d 7d 0d | 0d 23 20 42 75 74 20 6f |[1]);.}.|.# But o|
|000000d0| 6e 6c 79 20 74 68 69 73 | 20 73 75 62 20 6e 61 6d |nly this| sub nam|
|000000e0| 65 20 69 73 20 76 69 73 | 69 62 6c 65 20 74 6f 20 |e is vis|ible to |
|000000f0| 74 68 65 6d 2e 0d 0d 73 | 75 62 20 63 61 63 68 65 |them...s|ub cache|
|00000100| 6f 75 74 20 7b 0d 20 20 | 20 20 70 61 63 6b 61 67 |out {.  |  packag|
|00000110| 65 20 63 61 63 68 65 6f | 75 74 3b 0d 0d 20 20 20 |e cacheo|ut;..   |
|00000120| 20 28 24 66 69 6c 65 29 | 20 3d 20 40 5f 3b 0d 20 | ($file)| = @_;. |
|00000130| 20 20 20 69 66 20 28 21 | 24 69 73 6f 70 65 6e 7b |   if (!|$isopen{|
|00000140| 24 66 69 6c 65 7d 29 20 | 7b 0d 09 69 66 20 28 2b |$file}) |{..if (+|
|00000150| 2b 24 6e 75 6d 6f 70 65 | 6e 20 3e 20 24 6d 61 78 |+$numope|n > $max|
|00000160| 6f 70 65 6e 29 20 7b 0d | 09 20 20 20 20 6c 6f 63 |open) {.|.    loc|
|00000170| 61 6c 28 40 6c 72 75 29 | 20 3d 20 73 6f 72 74 20 |al(@lru)| = sort |
|00000180| 7b 24 69 73 6f 70 65 6e | 7b 24 61 7d 20 3c 3d 3e |{$isopen|{$a} <=>|
|00000190| 20 24 69 73 6f 70 65 6e | 7b 24 62 7d 3b 7d 20 6b | $isopen|{$b};} k|
|000001a0| 65 79 73 28 25 69 73 6f | 70 65 6e 29 3b 0d 09 20 |eys(%iso|pen);.. |
|000001b0| 20 20 20 73 70 6c 69 63 | 65 28 40 6c 72 75 2c 20 |   splic|e(@lru, |
|000001c0| 24 6d 61 78 6f 70 65 6e | 20 2f 20 33 29 3b 0d 09 |$maxopen| / 3);..|
|000001d0| 20 20 20 20 24 6e 75 6d | 6f 70 65 6e 20 2d 3d 20 |    $num|open -= |
|000001e0| 40 6c 72 75 3b 0d 09 20 | 20 20 20 66 6f 72 20 28 |@lru;.. |   for (|
|000001f0| 40 6c 72 75 29 20 7b 20 | 63 6c 6f 73 65 20 24 5f |@lru) { |close $_|
|00000200| 3b 20 64 65 6c 65 74 65 | 20 24 69 73 6f 70 65 6e |; delete| $isopen|
|00000210| 7b 24 5f 7d 3b 20 7d 0d | 09 7d 0d 09 26 6f 70 65 |{$_}; }.|.}..&ope|
|00000220| 6e 28 24 66 69 6c 65 2c | 20 28 24 73 61 77 7b 24 |n($file,| ($saw{$|
|00000230| 66 69 6c 65 7d 2b 2b 20 | 3f 20 27 3e 3e 27 20 3a |file}++ |? '>>' :|
|00000240| 20 27 3e 27 29 20 2e 20 | 24 66 69 6c 65 29 0d 09 | '>') . |$file)..|
|00000250| 20 20 20 20 7c 7c 20 64 | 69 65 20 22 43 61 6e 27 |    || d|ie "Can'|
|00000260| 74 20 63 72 65 61 74 65 | 20 24 66 69 6c 65 3a 20 |t create| $file: |
|00000270| 24 21 5c 6e 22 3b 0d 20 | 20 20 20 7d 0d 20 20 20 |$!\n";. |   }.   |
|00000280| 20 24 69 73 6f 70 65 6e | 7b 24 66 69 6c 65 7d 20 | $isopen|{$file} |
|00000290| 3d 20 2b 2b 24 73 65 71 | 3b 0d 7d 0d 0d 70 61 63 |= ++$seq|;.}..pac|
|000002a0| 6b 61 67 65 20 63 61 63 | 68 65 6f 75 74 3b 0d 0d |kage cac|heout;..|
|000002b0| 24 73 65 71 20 3d 20 30 | 3b 0d 24 6e 75 6d 6f 70 |$seq = 0|;.$numop|
|000002c0| 65 6e 20 3d 20 30 3b 0d | 0d 69 66 20 28 6f 70 65 |en = 0;.|.if (ope|
|000002d0| 6e 28 50 41 52 41 4d 2c | 27 2f 75 73 72 2f 69 6e |n(PARAM,|'/usr/in|
|000002e0| 63 6c 75 64 65 2f 73 79 | 73 2f 70 61 72 61 6d 2e |clude/sy|s/param.|
|000002f0| 68 27 29 29 20 7b 0d 20 | 20 20 20 6c 6f 63 61 6c |h')) {. |   local|
|00000300| 28 24 2e 29 3b 0d 20 20 | 20 20 77 68 69 6c 65 20 |($.);.  |  while |
|00000310| 28 3c 50 41 52 41 4d 3e | 29 20 7b 0d 09 24 6d 61 |(<PARAM>|) {..$ma|
|00000320| 78 6f 70 65 6e 20 3d 20 | 24 31 20 2d 20 34 20 69 |xopen = |$1 - 4 i|
|00000330| 66 20 2f 5e 5c 73 2a 23 | 5c 73 2a 64 65 66 69 6e |f /^\s*#|\s*defin|
|00000340| 65 5c 73 2b 4e 4f 46 49 | 4c 45 5c 73 2b 28 5c 64 |e\s+NOFI|LE\s+(\d|
|00000350| 2b 29 2f 3b 0d 20 20 20 | 20 7d 0d 20 20 20 20 63 |+)/;.   | }.    c|
|00000360| 6c 6f 73 65 20 50 41 52 | 41 4d 3b 0d 7d 0d 24 6d |lose PAR|AM;.}.$m|
|00000370| 61 78 6f 70 65 6e 20 3d | 20 31 36 20 75 6e 6c 65 |axopen =| 16 unle|
|00000380| 73 73 20 24 6d 61 78 6f | 70 65 6e 3b 0d 0d 31 3b |ss $maxo|pen;..1;|
|00000390| 0d 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000400| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00000410| 56 45 44 0d 23 3b 20 73 | 68 65 6c 6c 77 6f 72 64 |VED.#; s|hellword|
|00000420| 73 2e 70 6c 0d 23 3b 0d | 23 3b 20 55 73 61 67 65 |s.pl.#;.|#; Usage|
|00000430| 0b 63 61 63 68 65 6f 75 | 74 2e 70 6c 02 00 00 00 |.cacheou|t.pl....|
|00000440| 54 45 58 54 4d 50 53 20 | 00 00 00 00 00 00 00 00 |TEXTMPS |........|
|00000450| 00 00 54 45 58 54 4d 50 | 53 20 00 00 00 00 00 00 |..TEXTMP|S ......|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000470| 00 00 a6 ea af fe 00 00 | 03 11 00 00 01 ac 3d 20 |........|......= |
|00000480| 26 73 68 65 6c 6c 77 6f | 72 64 73 28 40 6c 69 6e |&shellwo|rds(@lin|
|00000490| 65 73 29 3b 0d 23 3b 09 | 6f 72 0d 23 3b 09 40 77 |es);.#;.|or.#;.@w|
|000004a0| 6f 72 64 73 20 3d 20 26 | 73 68 65 6c 6c 77 6f 72 |ords = &|shellwor|
|000004b0| 64 73 3b 09 09 23 20 64 | 65 66 61 75 6c 74 73 20 |ds;..# d|efaults |
|000004c0| 74 6f 20 24 5f 20 28 61 | 6e 64 20 63 6c 6f 62 62 |to $_ (a|nd clobb|
|000004d0| 65 72 73 20 69 74 29 0d | 23 65 6c 73 65 0d 3b 23 |ers it).|#else.;#|
|000004e0| 20 73 68 65 6c 6c 77 6f | 72 64 73 2e 70 6c 0d 3b | shellwo|rds.pl.;|
|000004f0| 23 0d 3b 23 20 55 73 61 | 67 65 3a 0d 3b 23 09 72 |#.;# Usa|ge:.;#.r|
|00000500| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 6e 28 24 |...H..Mo|naco.n($|
|00000510| 5f 5b 30 5d 2c 20 24 5f | 5b 31 5d 29 3b 0d 7d 0d |_[0], $_|[1]);.}.|
|00000520| 0d 23 20 42 75 74 00 06 | 00 08 00 3c 00 24 01 dd |.# But..|...<.$..|
|00000530| 02 3d 00 3c 00 24 01 dd | 02 3d a6 eb a6 26 00 00 |.=.<.$..|.=...&..|
|00000540| 00 08 00 00 00 13 00 00 | 00 00 01 00 00 00 00 1e |........|........|
|00000550| 00 3c 00 24 01 dd 02 3d | 00 3c 00 24 01 dd 02 3d |.<.$...=|.<.$...=|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 41 |.....n..|.n...>.A|
|00000580| 62 20 0f 6e 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |b .n....|.>..MPSR|
|00000590| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 03 f0 ff ff 00 00 00 4c | 00 47 95 54 00 00 00 00 |.......L|.G.T....|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+